Suzy B Software 2

home *** CD-ROM | disk | FTP | other *** search

/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / picmanip / pic_r2z / slick / slick.bas (.txt) < prev next >

Wrap

Atari STOS Basic | 1995-05-05 | 10.7 KB | 196 lines

1 REM **** SLIDESHOW CONSTRUCTION KIT **** 100 REM **** Initialize **** 1000 CLS 10000 REM **** Blinds **** 1010 LOCATE 10100 VARNAME 10110 FOR 10120 FOR 10130 DRAW 10140 DRAW 10150 NEXT 10160 INC 10170 WAIT 10180 NEXT 10190 RETURN 1020 LOCATE 1030 LOCATE 1040 LOCATE 1050 LOCATE 1060 SCREEN COPY 110 MODE 1100 LOCATE 11000 REM *** Sideways **** 1110 IF 11100 FOR 11110 DRAW 11120 DRAW 11130 DRAW 11140 DRAW 11150 NEXT 11160 FOR 11170 DRAW 11180 DRAW 11190 DRAW 1120 IF 11200 DRAW 11210 NEXT 11220 RETURN 1130 IF 1140 IF 1150 IF 1160 IF 120 RESERVE 12000 REM *** Curtains **** 12100 FOR 12110 DRAW 12120 NEXT 12130 RETURN 130 DIM 13000 REM *** Hourglass **** 13100 FOR 13110 DRAW 13120 NEXT 13130 FOR 13140 DRAW 13150 WAIT 13160 NEXT 13170 RETURN 140 VARNAME 14000 REM *** Fade **** 14100 FADE 14110 RETURN 1500 LOCATE 15000 REM **** Spiral **** 1510 IF 15100 FOR 15110 FOR 15120 FOR 15130 FOR 15140 FOR 15150 FOR 15160 FOR 15170 FOR 15180 FOR 15190 FOR 1520 CLS 15200 FOR 15210 FOR 15220 FOR 15230 FOR 15240 FOR 15250 FOR 15260 FOR 15270 FOR 15280 RETURN 1530 CURS 1540 IF 1550 IF 1560 VARNAME 1570 GOTO 16000 REM **** Checkerboard **** 16100 FOR 16110 FOR 16120 FOR 16130 FOR 16140 FOR 16150 FOR 16160 FOR 16170 FOR 16180 FOR 16190 FOR 16200 FOR 16210 RETURN 1700 REM **** Save Script **** 1710 CLS 1720 IF 1730 IF 1740 OPEN OUT 1750 FOR 1760 PRINT 1770 NEXT 1780 CLOSE 1790 GOTO 1800 REM **** Load Script **** 1810 ON ERROR 1820 OPEN IN 1830 REPEAT 1840 INC 1850 UNTIL 1860 CLOSE 1870 REM **** Run Slideshow **** 1880 CLEAR KEY 1890 FOR 1900 IF 1910 GET PALETTE 1920 CLS 1980 CLS 1990 IF 1999 SHOW 2000 REM **** Add Picture **** 20000 REM **** APPEAR EFFECTS **** 2010 SHOW 20100 IF 20110 GET PALETTE 20120 RETURN 2020 IF 2030 VARNAME 2040 FLASH 2050 WAIT 2060 GOTO 3000 REM **** Appear Selection Menu **** 3010 LOCATE 3020 LOCATE 3030 WAIT 3040 CLS 4000 REM **** Fade Selection Menu **** 4010 CLS 4020 LOCATE 4030 LOCATE 4040 LOCATE 4050 LOCATE 4060 LOCATE 4070 LOCATE 4080 LOCATE 4100 LOCATE 4110 IF 4150 CLS 4200 IF 4210 IF 4220 IF 4230 IF 4240 IF 4250 IF 4260 IF 4270 WAIT 4999 WAIT 5000 REM **** Slideshow Options Menu **** 5010 CLS 5020 LOCATE 5030 LOCATE 5040 LOCATE 5050 LOCATE 5060 LOCATE 5100 IF 5110 IF 5120 IF 5130 IF 5140 IF 5200 REM **** Select Drive **** 5210 CLS 5220 VARNAME 5230 HIDE 5300 REM **** Endless Show **** 5310 IF 5320 IF 5330 IF 5340 RETURN 5400 REM **** Display Time **** 5410 LOCATE 5420 VARNAME 5430 RETURN 6000 REM **** Stop Slideshow **** 6010 IF 6020 RETURN 9999 REM **** FADE ROUTINES ****